AAAAAAAAA HIIII111 LLL 
AAAAAAAAA III! LLL 
AAAAAAAAA HII LLL 
AAA ABA II] LLL 
AAA AAA III LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAK AAA II] LLL 
AA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA Ili LLL 
AMA AAA III LLL 
AAAAAAAAAAAAAAA III LLL 
AAAAAAAAAAAAAAA II] LLL 
AAAAAAAAAAAAAAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA IIIIIII11 LLLLLLLLLLLLLLL 
ABR AAA IIIIIIII1 LLLLLLLLLLLLLLL 
AAA AAA IIIIIIII1 


| 
LLLLLLLLLLLLLLL | 
| 
| 
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| **FILE**1D**MAILREQ 

i 
MM MM ARAABA III] LL RRRRRRRR EEEEEEEEEE QQQ000 
lal MM AAAAAA HII] LL RRRRRRRR EEEEEEEEEE QQQ0a0 
MMMM MMMM AA AA I] LL RR RR EE QQ Q 
MMMM MMMM AA AA I] LL RR RR EE QG QQ 
MM MM MM AA AA I] LL RR RR EE QQ QQ 
MM MM MM AA AA I] LL RR RR EE QQ QQ 
MM MM AA AA I] LL RRRRRRRR EEEEEEEE QQ QQ 
MM MM AA AA I] LL RRRRRRRR EEEEEEEE QQ Q 
MM MM AAAAAAAAAA I] LL RR RR EE QQ QQ QQ 
MM MM AAAAAAAAAA I] LL RR RR EE QQ QQ QQ 
MM MM AA AR I] LL RR RR EE Q QQ 
MM MM AA AA I] LL RR RR EE QQ QQ 
MM MM AA AA Lill!l LLLLLLLLLL RR RR EEEEEEEEEE QQQQ QQ 
MM MM AA AA III] LLLLLLLLLL RR RR EEEEEEEEEE QQQQ QQ 
RRRRRRRR EEEEEEEEEE QQ0000 
RRRRRRRR EEEEECECEE Q00000 
RR EE QQ QQ 
RR RR EE QQ QQ 
RR RR EE QQ QQ 
RR RR EE QQ QQ 
RRRRRRRR EEEEEEEE QQ QQ 
RRRRRRRR EEEEEEEE QQ QQ 
RR RR EE Q0 QQ QQ 
RR RR EE QQ QQ QQ 
RR RR EE QQ QQ 
RR RR EE QQ QQ 
RR RR EEEEEEEEEE QQQQg QQ 
RR RR EEEEEEEEEE QQ0Q QQ 


———— 


H 
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Version: *v04-000' 


i seueeeeeeeereeeereereerertenersesneeetnentinnntnnententettenetrrrerneeerenes 


i. COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
fe 
we 
® 
. we 
'* THIS i 'hrrhe 44 FURNISHED UNDER A LICENSE AND MAY BE USED AND eth * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
!* INCLUSION OF THe ABOVE Spl h oi NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
't TRANSFERRED. ® 

® 
ie phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
Hid SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
He CORPORAT ION. * 
. t 
:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 

® 

® 


PROC E EEE EERE EEE RARER EEE E REE EAE AERA AERA AREER EERE REET ETAT EEE 
' 


FACILITY: VAX/VMS MAIL UTILITY 
ABSTRACT: MAIL REQUIRE FILE 
ENVIRONMENT: WNATIVE/USER MODE 
AUTHOR: LEN KAWELL, CREATION DATE: 


MODIFIED BY: 
v0O3-002 BLS0255 Benn Schreiber — 28-Dec-1983 
Remove old definitions, add implied_new flag 
v03-001 BLS0246 Benn Schreiber 28-Nov-1983 


Add bit to flag confirmation. 
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; MACROS: 
MACRO 
MAILSV =Faciity MAIL facility (should be $M_) 
acon (MAILS_ FA CILITY * $81 TPOSITION(STSSY _FAC_NO))%; 
DESCRIPTOR [= ng descript 
UPLIT(%CHARCOUNT (XREMAINING) , uPLit sirte ZREMAIN NG) )&: 


MACRO 
DYN_DESC_DECL = 
BLOCKC8,BYTE] PRESET (Cos¢$B CLASS] = DSC$K_CLASS_D, 
DSCSB_DTYPE] = DSCSK_DTYPE_T)%; 


= ! Init dynamic string descriptor 


MACRO 
INIT_DDE 


INIT_SDE = !Init static string descriptor 


covccomumocv°olmN 
PAIN O Zamna 


A441 el 4-44-41 Le 
ANKNKNH$ORYYYYsO 


MACRO 


IF _LERRCEXP,ERREXP1,ERREXP2) = ! CHECK FOR ERROR 
BEGIN : EXECUTE ERROR HANDLING IF 
LOCAL STATUS; ! AN ERROR DOES OCCUR 
STATUS = E 
IF NOT .STATUS 
THEN BEG 


IN 
ERREXP1 ERREXP2 


END2; 
UPCASE(DESC) = 
BEGIN 


MACRO 


Upcase a string 


EXTERNAL ROUTINE MAILSUPCASE; 
RAILSUPCASE (DESC) ; 


MACRO 


cs ~COUNT = -0,8,0% 
CS"STRING = 8,6,08; 


Macro to generate descriptors names SD_string 


Counted string count field 
Counted string string field 


MACRO 
SD[A] = 
BIND ZNAME('SD_*,A) = SDESCRIPTOR(A)2; 


SFAB_DEV - macro to access FABSL_DEV bits 


of FAB block. 


MAILREQ.REQ;1 


CRO 
$fab soy ccey bit) 


EQUATED SYMBOLS: 
LITERAL ‘ 


E 

COMMA 
MAILS$K_INBUFFSZ 
: Define flags used for 
MACRO 


= SOWNS 
GLOBA L = $GLOBAL$ 


EXTERNAL ROUTINE LI 
bieruT OUTPUT (SDES 


sss OOOCOO 


PLIi = SCODES (ADDRESSING _MODE (GENERAL); 


BSPUT_ OUTPUT; 
CRIPTOR(string)); 


nnnnnn 
enn OO 
nO IOW «+ + 
»* et &¢ &© & & 


" 
Ww 
— 
~ 
ee 


parsing message selection 


By 0%; 


! Input 
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= 
SBYTEOFFSET(fab$l_ dev), 
mien SBITPOSITTONCERAMES dev$v_' ,dev_bit)),1,0%; 
debug print(string) = 
BEGIN . 


Carriage Return 
Line Feed 

Form Feed 
CTRL/Z 

Escape 

Comma 


>>>>rvrr 1 
yYoOoOoOuonou es 
AIOOOOO —c 
te ee a vv @ 
Pe teed ees bt Ot te 


buffer size 
qualifiers 


i /REPLIED 
‘Test if ony qual selected 
i/NEW IMPLI Dd, 

ay soonntewen MODE (EXTERNAL=GENERAL ,NONEXTERNAL=GENERAL) ; 


CODE = scoeee (ADDRESSING MODE (GENERAL)), 
OWN (ADDR es E(G 


default to filename 


L EQUIPMENT CORPORATION 
ENTIAL -AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


1228 


D 
C 


IGITA 
ONFID 


